﻿Public Class Daten

    Public MAX_FACH As Integer = 10
    Public Fächer(MAX_FACH) As Fächer_Class
    Public FächerAnz = 0

    Public Function addFach(ByVal fach As Fächer_Class)

        'FächerAnz = FächerAnz + 1
        'Fächer(FächerAnz) = fach
        'Fächer(FächerAnz) = New Fächer_Class
        'Fächer(FächerAnz).name = fach.name
        'Fächer(FächerAnz).typ = fach.typ
        'Return Fächer(FächerAnz)

        Dim i As Integer
        For i = 0 To MAX_FACH
            If Fächer(i) Is Nothing Then
                Fächer(i) = fach
                FächerAnz = FächerAnz + 1
                Return Fächer(i)
            End If
        Next

        Return Nothing
        MsgBox("Es sind alle Fächer belegt!")

    End Function

End Class
